Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 1.iso/pc/data/notes.dir/00041.ls

Text File | 1996-09-06 | 448 b | 23 lines

on mouseDown
  hilite line the mouseLine of field "noteslist"
end

on mouseUp
  global gOldNoteName, gOpenNote, gOverSize
  set gOldNoteName to line the mouseLine of field "noteslist"
  if gOldNoteName = EMPTY then
    nothing()
  else
    readNote()
    if gOverSize then
      pupSprites(1, 48, 0)
      set gOpenNote to 0
      go("bigsize")
    else
      set gOpenNote to 1
      pupSprites(1, 48, 0)
      go("notes")
    end if
  end if
end